Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/4-Fonts & Software/Demo Software/AppMaker/Demo AppMaker™/Demo AppMaker™.rsrc/TmpP_203_Window.txt

Text File | 1989-04-09 | 3KB | 2 lines

# (decoded with TMPL 11972)
{ %filename% }{ Created %date% %time% by AppMaker }Unit %unitname%;InterfaceUses%If MPW%    {$Load ToolBox.dump}        MemTypes,        QuickDraw,        OSIntf,        ToolIntf,        PackIntf,    {$Load}%end if%%If Think%{$ifc undefined Think_Pascal}    ListManager, Rom85,{$endc}%end if%    Globals,    ResourceDefs,    Scrolling,    WindowAids,    Miscellany;{----------}Procedure Open%WindName% (fName:    Str255;                          vRefNum:    integer;                          fRefNum:    integer);Procedure Close%WindName%;Procedure MouseIn%WindName% (where:        Point;                            modifiers:    integer);Procedure TypeIn%WindName%  (ch:        char);Procedure Update%WindName%;Procedure Activate%WindName% (activate:    boolean);Procedure Resize%WindName%;Procedure Scroll%WindName%  (newValue:    integer;                             oldValue:    integer);Procedure Control%WindName% (whichControl:    ControlHandle;                             whichPart:        integer;                             where:            Point);{----------}Implementation%If MPW%{$D+}{$R+}{$OV+}%end if%%If MPW%{$S %unitname%}%end if%{----------}Procedure Open%WindName% {(fName:    Str255;                           vRefNum:    integer;                           fRefNum:    integer)};var    newWindow:        WindowPtr;    bounds:            Rect;Begin    newWindow := GetNewWindow (%WindName%ID, nil, WindowPtr (-1));    SetWTitle (newWindow, fName);    SetPort (newWindow);    SetNewInfo (newWindow);    with cur^ do begin        %MakeItems%        fileNum    := fRefNum;        volNum    := vRefNum;        dirty    := false;        filename := NewString (fName);        windowKind := W%WindName%;    end; {with}    ShowWindow (newWindow);End; {Open%WindName%}{----------}Procedure Close%WindName%;Begin    with cur^ do begin        %DisposeItems%        DisposHandle (Handle (filename));    end; {with}    DiscardInfo (curWindow);End; {Close%WindName%}{----------}Procedure MouseIn%WindName% {(where:        Point;                           modifiers:    integer)};var    bounds:            Rect;Begin    with cur^ do begin        %MouseInItems%    end; {with}End; {MouseIn%WindName%}{----------}Procedure TypeIn%WindName% {(ch:        char)};Begin    with cur^ do begin        if text = nil then begin            SysBeep (1);        end else begin            TEKey (ch, text);        end;    end; {with}End; {TypeIn%WindName%}{----------}Procedure Update%WindName%;var    bounds:            Rect;Begin    with cur^ do begin        %UpdateItems%    end; {with}End; {Update%WindName%}{----------}Procedure Activate%WindName% {(activate:    boolean)};Begin    with cur^ do begin        %ActivateItems%    end; {with}End; {Activate%WindName%}{----------}Procedure Resize%WindName%;Begin    with cur^ do begin    end; {with}End; {Resize%WindName%}{----------}Procedure Scroll%WindName% {(newValue:    integer;                             oldValue:    integer)};Begin    { application-specific code to scroll window }End; {Scroll%WindName%}{----------}Procedure Control%WindName% {(whichControl:    ControlHandle;                              whichPart:    integer;                              where:        Point)};var    bounds:            Rect;Begin    with cur^ do begin        %ControlItems%    end; {with}End; {Control%WindName%}End. {%unitname%}